home *** CD-ROM | disk | FTP | other *** search
/ Amiga Plus 2004 #9 / Amiga Plus CD - 2004 - No. 09.iso / amigaplus / tools / dev_libs / feelin040718 / demos / frames.e < prev    next >
Encoding:
Text File  |  2004-08-03  |  6.0 KB  |  165 lines
  1. OPT PREPROCESS
  2.  
  3. MODULE 'feelin','libraries/feelin'
  4.  
  5. PROC main()
  6.    DEF app,win
  7.  
  8.    IF feelinbase := OpenLibrary('feelin.library',FV_VERSION)
  9.       app := AppObject,
  10.          Child, win := WindowObject, FA_Window_Title,'Feelin : Frames',
  11.             FA_Window_Open,   TRUE,
  12.  
  13.             Child, Page,
  14.                Child, VGroup, FA_Group_Rows,7, FA_Group_Title, 'Frames',
  15.                   Child, AreaObject, FA_Frame, '0:01', DontChain, End,
  16.                   Child, AreaObject, FA_Frame, '0:02', DontChain, End,
  17.                   Child, AreaObject, FA_Frame, '0:03', DontChain, End,
  18.                   Child, AreaObject, FA_Frame, '0:04', DontChain, End,
  19.                   Child, AreaObject, FA_Frame, '0:05', DontChain, End,
  20.                   Child, AreaObject, FA_Frame, '0:06', DontChain, End,
  21.                   Child, AreaObject, FA_Frame, '0:07', DontChain, End,
  22.                   Child, AreaObject, FA_Frame, '0:08', DontChain, End,
  23.                   Child, AreaObject, FA_Frame, '0:09', DontChain, End,
  24.                   Child, AreaObject, FA_Frame, '0:0A', DontChain, End,
  25.                   Child, AreaObject, FA_Frame, '0:0B', DontChain, End,
  26.                   Child, AreaObject, FA_Frame, '0:0C', DontChain, End,
  27.                   Child, AreaObject, FA_Frame, '0:0D', DontChain, End,
  28.                   Child, AreaObject, FA_Frame, '0:0E', DontChain, End,
  29.                   Child, AreaObject, FA_Frame, '0:0F', DontChain, End,
  30.                   Child, AreaObject, FA_Frame, '0:10', DontChain, End,
  31.                   Child, AreaObject, FA_Frame, '0:11', DontChain, End,
  32.                   Child, AreaObject, FA_Frame, '0:12', DontChain, End,
  33.                   Child, AreaObject, FA_Frame, '0:13', DontChain, End,
  34.                   Child, AreaObject, FA_Frame, '0:14', DontChain, End,
  35.                   Child, AreaObject, FA_Frame, '0:15', DontChain, End,
  36.                   Child, AreaObject, FA_Frame, '0:16', DontChain, End,
  37.                   Child, AreaObject, FA_Frame, '0:17', DontChain, End,
  38.                   Child, AreaObject, FA_Frame, '0:18', DontChain, End,
  39.                   Child, AreaObject, FA_Frame, '0:19', DontChain, End,
  40.                   Child, AreaObject, FA_Frame, '0:1A', DontChain, End,
  41.                   Child, AreaObject, FA_Frame, '0:1B', DontChain, End,
  42.                   Child, AreaObject, FA_Frame, '0:1C', DontChain, End,
  43.                   Child, AreaObject, FA_Frame, '0:1D', DontChain, End,
  44.                   Child, AreaObject, FA_Frame, '0:1E', DontChain, End,
  45.                   Child, AreaObject, FA_Frame, '0:1F', DontChain, End,
  46.                   Child, AreaObject, FA_Frame, '0:20', DontChain, End,
  47.                   Child, AreaObject, FA_Frame, '0:21', DontChain, End,
  48.                   Child, AreaObject, FA_Frame, '0:22', DontChain, End,
  49.                   Child, AreaObject, FA_Frame, '0:23', DontChain, End,
  50.                   Child, AreaObject, FA_Frame, '0:24', DontChain, End,
  51.                   Child, AreaObject, FA_Frame, '0:25', DontChain, End,
  52.                   Child, AreaObject, FA_Frame, '0:26', DontChain, End,
  53.                   Child, AreaObject, FA_Frame, '0:27', DontChain, End,
  54.                   Child, AreaObject, FA_Frame, '0:28', DontChain, End,
  55.                   Child, AreaObject, FA_Frame, '0:29', DontChain, End,
  56.                   Child, AreaObject, FA_Frame, '0:2A', DontChain, End,
  57.                   Child, AreaObject, FA_Frame, '0:2B', DontChain, End,
  58.                   Child, AreaObject, FA_Frame, '0:2C', DontChain, End,
  59.                   Child, AreaObject, FA_Frame, '0:2D', DontChain, End,
  60.                   Child, AreaObject, FA_Frame, '0:2E', DontChain, End,
  61.                   Child, AreaObject, FA_Frame, '0:2F', DontChain, End,
  62.                   Child, AreaObject, FA_Frame, '0:30', DontChain, End,
  63.                   Child, AreaObject, FA_Frame, '0:31', DontChain, End,
  64.                End,
  65.  
  66.                Child, HGroup, FA_Group_Rows,3, FA_Group_Title, 'Positions',
  67.                   Child, AreaObject,
  68.                      FA_Frame,            '0:12',
  69.                      FA_Frame_PreParse,   '<pens up=shine>',
  70.                      FA_Frame_Title,      'UpLeft',
  71.                      FA_Frame_Position,   FV_Frame_UpLeft,
  72.                      FA_Back,             'c:FF0000',
  73.                      DontChain,
  74.                   End,
  75.                   Child, AreaObject,
  76.                      FA_Frame,            '0:12',
  77.                      FA_Frame_PreParse,   '<pens up=shine>',
  78.                      FA_Frame_Title,      'DownLeft',
  79.                      FA_Frame_Position,   FV_Frame_DownLeft,
  80.                      FA_Back,             'c:FFFF00',
  81.                      DontChain,
  82.                   End,
  83.                   Child, AreaObject,
  84.                      FA_Frame,            '0:12',
  85.                      FA_Frame_PreParse,   '<pens up=shine>',
  86.                      FA_Frame_Title,      'UpCenter',
  87.                      FA_Frame_Position,   FV_Frame_UpCenter,
  88.                      FA_Back,             'c:00FF00',
  89.                      DontChain,
  90.                   End,
  91.                   Child, AreaObject,
  92.                      FA_Frame,            '0:12',
  93.                      FA_Frame_PreParse,   '<pens up=shine>',
  94.                      FA_Frame_Title,      'DownCenter',
  95.                      FA_Frame_Position,   FV_Frame_DownCenter,
  96.                      FA_Back,             'c:00FFFF',
  97.                      DontChain,
  98.                   End,
  99.                   Child, AreaObject,
  100.                      FA_Frame,            '0:12',
  101.                      FA_Frame_PreParse,   '<pens up=shine>',
  102.                      FA_Frame_Title,      'UpRight',
  103.                      FA_Frame_Position,   FV_Frame_UpRight,
  104.                      FA_Back,             'c:0000FF',
  105.                      DontChain,
  106.                   End,
  107.                   Child, AreaObject,
  108.                      FA_Frame,            '0:12',
  109.                      FA_Frame_PreParse,   '<pens up=shine>',
  110.                      FA_Frame_Title,      'DownRight',
  111.                      FA_Frame_Position,   FV_Frame_DownRight,
  112.                      FA_Back,             'c:FF00FF',
  113.                      DontChain,
  114.                   End,
  115.                End,
  116. /*
  117.                Child, VGroup, FA_Group_Title, 'Examples',
  118.                   Child, HGroup,
  119.                      Child, button(029,030,FI_Fill,FI_Fill),
  120.                      Child, button(031,032,FI_Fill,FI_Fill),
  121.                      Child, button(017,018,FI_Fill,FI_Fill),
  122.                      Child, button(023,024,FI_Fill,FI_Fill),
  123.                      Child, button(019,020,FI_Fill,FI_Fill),
  124.                      Child, button(025,026,FI_Fill,FI_Fill),
  125.                      Child, button(021,022,FI_Fill,FI_Fill),
  126.                   End,
  127.  
  128.                   Child, HGroup,
  129.                      Child, button(015,013,FI_Fill,FI_Fill),
  130.                      Child, button(016,014,FI_Fill,FI_Fill),
  131.                      Child, button(040,041,FI_None,FI_None),
  132.                      Child, button(036,036,FI_Dark,FI_Shine),
  133.                   End,
  134.  
  135.                   Child, HGroup,
  136.                      Child, button(034,009,FI_Fill,FI_HalfShadow),
  137.                      Child, button(027,028,FI_Fill,FI_Dark),
  138.                      Child, button(037,038,FI_Fill,FI_HalfShadow),
  139.                      Child, button(033,003,FI_Fill,FI_Dark),
  140.                      Child, button(039,010,FI_Fill,FI_Fill),
  141.                   End,
  142.                End,
  143. */
  144.             End,
  145.          End,
  146.       End
  147.  
  148.       IF app
  149.          F_DoA(win,FM_Notify,[FA_Window_CloseRequest,TRUE,app,FM_Application_Shutdown,0])
  150.          F_DoA(app,FM_Application_Run,NIL)
  151.          F_DisposeObj(app)
  152.       ENDIF
  153.  
  154.       CloseLibrary(feelinbase)
  155.    ENDIF
  156. ENDPROC
  157.  
  158. PROC button(fspec,bspec)
  159.    RETURN AreaObject,
  160.           FA_InputMode, FV_InputMode_Toggle,
  161.           FA_Frame,     fspec,
  162.           FA_Back,      bspec,
  163.           End
  164. ENDPROC
  165.